home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 8 / DISK0386.ZIP / BLKDAT.FOR < prev    next >
Text File  |  1985-05-02  |  29KB  |  418 lines

  1. $STORAGE: 4
  2. $DO66
  3.       BLOCK DATA
  4.       COMMON /NUMBRS/ I2,I3,I4,I5,I6,I7
  5.     DIMENSION NSYM1(89),NSYM2(89)
  6.     DIMENSION NSYMB(2,89)
  7. C SHORTEN DATA STMT BY HAVING 2 HALF SIZED ARRAYS
  8.     EQUIVALENCE(NSYM1(1),NSYMB(1,1))
  9.     EQUIVALENCE(NSYM2(1),NSYMB(2,44))
  10.       COMMON /SYMBOL/ NBLANK,NSYM,NSYMX,LFRONT,LFRNTX,LBACK,LBACKX
  11.       COMMON /INIT/ NSYMB,IA(186),IB(180),IC(181),ID(179),IE(174),
  12.      *    IF(184),IG(180),IH(173),II(179),IJ(187),IK(179),IL(180),
  13.      *    IM(176),IN(171),IO(168),IP(163),IQ(160),LMAX(89),LMIN(89)
  14.       DATA I2,I3,I4,I5,I6,I7/100,1000,10000,100000,1000000,10000000/
  15.       DATA NBLANK,NSYM,NSYMX/32,36,77/
  16. C      DATA NBLANK,NSYM,NSYMX/' ','$','M'/
  17. C
  18.       DATA LMAX,LMIN/80,57,80,73,80,57,80,57,80,74,80,57,80,57,3*80,57,
  19.      *    5*80,55,3*80,57,3*80,57,80,74,3*80,57,80,57,80,57,80,55,80,55,
  20.      *    80,55,80,55,80,55,10*80,70,48,80,55,3*80,64,7*80,88,2*80,2*15,
  21.      *  2*47,2*80,76,80,1,10*1,-1,12*1,-1,7*1,-24,1,-24,5*1,-24,-11,-24,
  22.      *    7*1,-24,12*1,11,33,1,26,1,1,61,19,7*1,-7,1,1,-9,1,1,11,41,41,
  23.      *    4,1,1/
  24. C     THE SECOND LETTER IN EACH OF THE FOLLOWING PAIRS IS LOWER CASE.
  25. C      DATA NSYMB/'E',490001,'e',340024,'T',510072,'t',220103,'A',660123,
  26. C     *'a',380185,'O',540239,'o',340245,'I',270245,'i',180251,'N',670268,
  27. C     *'n',420315,'S',440315,'s',290386,'H',650430,'h',420463,'R',550463,
  28. C     *'r',300502,'D',570518,'d',390520,'L',460542,'l',180557,'U',640562,
  29. C     *'u',420609,'B',520641,'b',390669,'C',480688,'c',310712,'F',490726,
  30. C     *'f',300751,'G',560783,'g',470822,'J',360890,'j',180921,'K',620941,
  31. C     *'k',401001,'M',761033,'m',641085,'P',461132,'p',391159,'Q',541175,
  32. C     *'q',391227,'V',701249,'v',461309,'W',941350,'w',671435,'X',611498,
  33. C     *'x',441572,'Y',571623,'y',451683,'Z',461731,'z',311800,'0',491842,
  34. C     *'1',251885,'2',381904,'3',421963,'4',412019,'5',412063,'6',432118,
  35. C     *'7',382184,'8',442215,'9',432275,'+',362341,'-',362347,'!',102351,
  36. C     *'=',362353,'/',282357,'%',282385,'^',122425,'_',342436,'<',312480,
  37. C     *'>',312511,'(',172542,')',172559,'*',442576,'?',352621,'&',532664,
  38. C     *'$',402729,'#',362781,']', 92833,',', 92842,'.', 92851,';', 92858,
  39. C     *':', 92869,''', 92876,'"',182885,'[',312900,'@',482938,' ',503001/
  40. C
  41.       DATA NSYMB/69,490001,101,340024,84,510072,116,220103,65,660123,     
  42.      *97,380185,79,540239,111,340245,73,270245,105,180251,78,670268,     
  43.      *110,420315,83,440315,115,290386,72,650430,104,420463,82,550463,     
  44.      *114,300502,68,570518,100,390520,76,460542,108,180557,85,640562,     
  45.      *117,420609,66,520641,98,390669,67,480688,99,310712,70,490726,     
  46.      *102,300751,71,560783,103,470822,74,360890,106,180921,75,620941,     
  47.      *107,401001,77,761033,109,641085,80,461132,112,391159,81,541175,     
  48.      *113,391227,86,701249,118,461309,87,941350,119,671435,88,611498,     
  49.      *120,441572,89,571623,121,451683,90,461731,122,311800,48,491842,     
  50.      *49,251885,50,381904,51,421963,52,412019,53,412063,54,432118,     
  51.      *55,382184,56,442215,57,432275,43,362341,45,362347,33,102351,     
  52.      *61,362353,47,282357,37,282385,94,122425,95,342436,60,312480,     
  53.      *62,312511,40,172542,41,172559,42,442576,63,352621,38,532664,     
  54.      *36,402729,35,362781,93, 92833,44, 92842,46, 92851,59, 92858,
  55.      *58,92869,39, 92876,34,182885,91,312900,64,482938,32,503001/
  56. C
  57. C
  58. C
  59. C
  60. C                1 -  186 : 186
  61.       DATA IA/638441,80745,638441,80745,637451,80742,635471,80740,632501
  62.      *,80740,626561,80740,621611,80743,674800,774802,873802,1072800,1170
  63.      *800,1368800,1665800,2359800,3054804,37200,41160,44130,46110,48090,
  64.      *50070,51060,52026331,52370,41626331,53410,31426331,54430,21226331,
  65.      *55450,11026331,56470,10926331,56480,10826331,56490,726331,57502,62
  66.      *6331,57512,626331,57502,10726331,56490,10726331,56480,10826331,564
  67.      *70,20926331,55450,31026331,54430,41126331,53410,51226331,52370,614
  68.      *26510,71526500,91826480,111826460,131826440,41260,37260,80533,8061
  69.      *0,80660,80680,80700,80710,80720,80732,673800,674802,774803,874802,
  70.      *974800,1074800,1374800,80007,1374800,1074800,974800,874802,774803,
  71.      *674802,673800,80732,80720,80710,80700,80680,80660,80610,80533,5349
  72.      *0,54490,55490,56490,57490,59490,62080,67050,73030,73012,73000,1149
  73.      *550,949550,849552,10949550,11049550,21449550,42249550,72249550,122
  74.      *249550,6003,7002,8000,9000,11000,13000,15000,17000,20000,23000,260
  75.      *00,29000,1017320,821350,725390,727420,628450,628480,628341,51360,6
  76.      *28341,54400,283443570,283446600,283449630,283452660,283455690,2834
  77.      *58720,283461750,283463780,283462800,283459800,283456800,283453780,
  78.      *283449740,283446710,283443680,628341,65401,628341,62360,628590,628
  79.      *550,727520,724490,820460,1016420,39000,36000,33000,30000,26000,230
  80.      *00,20000,17000,15000,12000,10000,9000,8000,7003,6003,20080,23050/
  81. C              187 -  366 : 180
  82.       DATA IB/42541460,32638500,22737510,12836530,12936540,1219301,55360
  83.      *,1021311,56370,922311,56380,823321,404449570,824331,57500,825331,5
  84.      *7510,10825341,57510,10926341,57520,20927341,57520,31027351,57520,4
  85.      *1128351,57520,51228351,57520,61329361,56510,71429361,56500,8163037
  86.      *1,56490,91931381,55470,82331401,55440,54060,53040,52030,50020,4801
  87.      *0,44000,9000,8002,9010,11020,23030,23050,23070,21169780,21070780,2
  88.      *0971780,10872792,10773790,773800,1367800,1070800,971800,872800,773
  89.      *803,674803,649552,748550,847550,946551,70640,1243551,72620,5561730
  90.      *,5560742,5561730,5562720,5564700,12000,9000,8000,7000,6002,2156882
  91.      *0,21267820,21165820,21064810,20962790,20960780,20958760,20857740,2
  92.      *0855730,20853710,69520,67500,66480,64460,62450,60430,59410,57400,5
  93.      *5380,54360,52340,50330,48310,47290,45270,43260,42240,40220,38210,1
  94.      *93676820,173576820,153376820,143175820,123075820,102875820,9267482
  95.      *0,72473820,52372820,32269820,82020,82003,82690,82720,82730,82740,8
  96.      *2753,82763,22950640,13047680,22945700,52643720,62342730,72041750,7
  97.      *1840561,76630,71639531,77660,71539521,78680,61438511,78690,5133850
  98.      *1,79700,41238501,79710,41137501,79720,31037491,80730,30937491,8073
  99.      *0,20937491,80740,20836491,80740,10836491,80740,10736491,80742,7364
  100.      *91,80740,736481,80740,636481,80742,636481,80730,736481,79730,73648
  101.      *1,79720,735471,79720,835471,78710,10835471,78710,10835471,77700/
  102. C              367 -  547 : 181
  103.       DATA IC/10934461,76690,21034461,75680,21133451,75670,31231451,7566
  104.      *0,31429441,75630,41626441,76610,54357770,64255790,84155790,9395578
  105.      *0,37110,35140,31170,45370,22233480,22231500,22229520,42028530,5162
  106.      *7540,51426411,55450,41226391,56480,41125381,56490,31025371,57500,2
  107.      *0924361,57510,10824361,57510,10824361,57520,724361,57520,724351,57
  108.      *520,723351,57522,723351,56510,723351,56500,822341,55490,922341,554
  109.      *80,11021331,54470,11220331,54450,23243540,33139550,53038550,629385
  110.      *50,82738550,24110,1338441,80670,1038441,80700,938441,80710,838441,
  111.      *80720,738441,80733,638441,80743,44385,44386,638441,80743,738441,80
  112.      *733,838441,80720,938441,80710,1038441,80700,1338441,80670,80007,13
  113.      *67800,1070800,971800,872800,773803,674803,1339451,80740,1039451,80
  114.      *740,939451,80740,839451,80740,739451,80743,639451,80743,394574803,
  115.      *384574800,374574800,364574800,354673800,334673800,294772800,154871
  116.      *800,85069800,45267790,33940551,79640,23840790,13641780,3342770,264
  117.      *4750,1145740,947720,850690,854650,9000,10010,12020,21030,24040,240
  118.      *70,24100,1227460,935460,839490,743510,645520,647540,55480,56502,41
  119.      *4550570,394850570,57380,57372,56370,55380,53390,49410,674805,67480
  120.      *5,651570,750570,10750560,10849560,20948551,80740,21047551,80740,31
  121.      *245541,80730,41443531,80720,61641511,80710,72037501,80680,80006,12
  122.      *000,9000,8000,7000,6002,667800,670800,671800,672800,673803,674803/
  123. C              548 -  726 : 179
  124.       DATA ID/6006,7002,8002,10000,11000,13000,16000,23000,30004,12000,9
  125.      *000,8000,7000,6002,80743,80733,80720,80710,80700,80670,80230,80180
  126.      *,80150,80130,80110,80090,80080,72467800,62070800,51771800,41572800
  127.      *,31373800,21273800,21173800,11074800,10974802,8003,7003,6007,7002,
  128.      *8010,10974800,20974800,21074800,31173800,31273800,41373800,5147280
  129.      *0,61671800,71970800,92367800,80110,80130,80160,80210,80670,80700,8
  130.      *0710,80720,80733,80743,57512,57500,57490,57480,57450,57130,57090,5
  131.      *7070,57050,57040,57020,17010,13010,11000,10000,9000,8000,7003,7012
  132.      *,8020,20951570,31051570,41150570,61349570,81648570,82045570,57026,
  133.      *14020,11020,10020,9020,8022,639451,80746,639451,80746,639451,80747
  134.      *,738461,80732,837471,80720,936481,80710,1035501,80690,11233521,796
  135.      *70,11431411,435564790,21827411,79440,24044780,33945770,53846750,63
  136.      *748740,73649720,93451690,123254650,29160,80742,80730,80720,80710,8
  137.      *0680,80003,80030,80060,80090,92037500,61641510,41443530,31245540,2
  138.      *1047550,20948550,10849560,10750560,750570,651570,21169780,21070780
  139.      *,20971780,10872792,10773790,674806,773800,10773790,10872790,108727
  140.      *80,20971780,21070770,31169770,41268760,51367750,61466740,71664740,
  141.      *91862740,102060750,112356760,132653780,162651790,192651790,2126517
  142.      *90,651572,650570,10750570,10749570,10839441,56470,20937560,3113655
  143.      *0,41335550,51535540,61635520,81736510,111737490,131639450,1338441/
  144. C              727 -  900 : 174
  145.       DATA IE/80740,1038441,80740,938441,80740,838441,80740,738441,80743
  146.      *,638441,80743,374574802,354774800,325074800,265674800,216174803,80
  147.      *743,80732,80720,80700,80680,80650,80590,80544,649553,749552,849550
  148.      *,1249550,62000,69000,72000,75000,77000,78000,1249551,79680,949551,
  149.      *79710,849551,80730,749551,80740,749551,80750,649551,80762,649551,6
  150.      *77176800,647375800,79630,79620,78620,77630,75640,73650,71670,21169
  151.      *780,21070780,20971780,10872792,10773790,773800,674804,774800,10774
  152.      *800,10830361,80730,10830361,79730,20930361,79720,21030361,78720,31
  153.      *129361,78710,41229361,77700,51328361,76690,61527361,76680,71825361
  154.      *,75660,93664760,103662760,93658770,63653780,33651790,23651792,3625
  155.      *0,36260,36270,36280,36293,36303,17120,82031360,62226400,42325430,3
  156.      *4456660,31217451,70520,21019361,72390,20920331,74420,10821321,7642
  157.      *0,10821321,77430,10722321,435666780,722321,435270790,722321,425072
  158.      *800,623321,424874800,623311,414775810,623311,414676810,623311,4046
  159.      *76820,623311,404577825,623311,404676820,623311,414676810,623311,41
  160.      *4775810,722311,424874800,722311,425072800,10722311,435270790,10821
  161.      *311,445666780,10821311,77450,20920311,76460,21019311,75480,3121731
  162.      *1,75500,43052750,53056760,62969780,72872790,92773800,112564671,807
  163.      *30,142361701,80730,80600,79602,78600,76610,73620,69640,19120,22090
  164.      *,23070,24050,24040,24030,24020,10911230,10813220,715191,80740/
  165. C              901 - 1084 : 184
  166.       DATA IF/674802,673800,773802,10872800,11071800,21270800,21567800,8
  167.      *0030,80040,80050,80070,80080,80110,80160,80670,80700,80710,80720,8
  168.      *0733,80743,13080,15050,16030,17020,17012,1674800,1574800,609121,80
  169.      *730,10772800,10871801,95890,21168801,97870,38086980,48085990,68085
  170.      *990,88086980,108087970,148089950,1330381,80670,1031391,80700,93340
  171.      *1,80710,834411,80720,735421,80730,736431,80730,737451,80730,638461
  172.      *,80740,640471,80740,641481,80740,49420,51420,52410,53390,54370,553
  173.      *50,56330,58310,294751590,274553601,80740,625431,546174800,623411,5
  174.      *56274800,621391,566374800,719371,576573800,717351,586673800,915331
  175.      *,606871800,3161800,2962800,2763800,2564800,2366800,2167800,1968800
  176.      *,1769800,1570800,1370800,1270800,1072800,973800,873800,774802,6748
  177.      *00,6002,1221290,923300,824320,726330,627350,627361,55490,273849550
  178.      *,263949550,254149550,224248550,619441,55470,617341,55360,614311,55
  179.      *380,712281,55400,2641550,2443550,2244550,2045550,1846550,1647550,1
  180.      *448550,1248550,1049550,949550,749552,649550,6000,1367800,1066800,9
  181.      *63800,859800,756800,753800,749770,646740,643710,639670,64360,61330
  182.      *,58290,54260,51230,48190,44160,41130,38100,34060,31030,28000,24000
  183.      *,21000,18000,17020,20050,24080,27120,31150,34190,38220,41260,45290
  184.      *,48330,636520,640550,643580,747620,750660,754690,857720,960760,106
  185.      *4790,1366800,80007,1367800,1070800,971800,872800,773803,674803/
  186. C             1085 - 1264 : 180
  187.       DATA IG/1237490,941500,844520,746530,647540,648550,55490,56502,575
  188.      *00,649570,648570,747570,846570,944560,1240560,55000,53000,52000,50
  189.      *000,48000,47000,1237490,941500,844520,746530,647540,648550,55490,5
  190.      *6502,57500,649570,648570,747570,846570,944560,1240560,55000,53000,
  191.      *52000,50000,48000,44000,12000,9000,8000,7000,6002,1313451,80740,10
  192.      *39451,80740,939451,80740,839451,80740,739451,80743,639451,80743,39
  193.      *4574804,394673802,394772800,394871800,395069800,405267790,40556479
  194.      *0,79400,78410,77420,75440,74450,72470,69500,65540,1232451,75620,93
  195.      *1411,76660,829391,78680,728371,79700,627351,80720,627341,80730,263
  196.      *374810,263275810,253275820,253176820,142481900,142882900,143083900
  197.      *,133284910,132023331,91840,131926341,91850,121927341,92850,1218273
  198.      *51,92862,121826351,92860,121825341,92860,121823341,92860,121820331
  199.      *,92860,123285920,133185910,123084910,92884910,72683900,52482900,42
  200.      *381900,32480890,21516251,88790,11316261,88780,1117281,87760,918301
  201.      *,86740,819321,85720,720361,84680,721391,83650,823451,81590,1092480
  202.      *0,21126780,31628760,41730740,71832720,101835690,66380,60440,253176
  203.      *820,253275820,263275810,263374810,627341,80730,627351,80720,728371
  204.      *,79700,829391,78680,931411,76660,1232451,75620,80006,1268800,97180
  205.      *0,872800,773800,674802,80745,80732,80720,80710,80700,80680,80660,8
  206.      *0630,80600,80570,80540,80510,80480,80450,80420,396770800/
  207. C             1265 - 1437 : 173
  208.       DATA IH/366272800,335973800,305673800,275374800,245074800,21477480
  209.      *0,184474800,154174800,123874800,35090,32060,29030,26000,23000,2000
  210.      *0,18000,17000,18040,21070,24100,28130,31160,34200,233774800,264074
  211.      *800,294374800,324674800,354974800,385273800,415673800,445972800,47
  212.      *6369800,80500,80530,80570,80600,80630,80660,80680,80700,80710,8072
  213.      *0,80732,80745,55493,55482,55460,55450,55420,55400,55370,55340,5531
  214.      *0,55270,55240,55210,184247550,153948550,123649550,93349550,6304955
  215.      *0,32749550,23000,20000,17000,14010,17040,19070,22100,122549550,152
  216.      *849550,183149550,213448550,243648550,273947550,294345550,55320,553
  217.      *50,55380,55410,55440,55460,55470,55480,55493,80744,80732,80720,807
  218.      *10,80700,80680,80670,80640,80600,80570,80530,80490,80450,80410,803
  219.      *70,336470800,306072800,265673800,225273800,184874800,144474800,104
  220.      *074800,73774800,33374800,2974800,25000,21000,20000,20020,24060,281
  221.      *00,32140,36180,40220,44260,48300,52340,56380,60420,64460,68500,725
  222.      *40,76580,80600,80570,80540,80500,76460,73420,69390,65350,61310,582
  223.      *80,54240,50200,47170,43130,39090,36050,32010,28000,24000,21000,
  224.      *   21030,24070,112874800,153274800,193674800,234074800,274474800,3
  225.      *14874800,355273800,385673800,426071800,466569800,80500,80540,80580
  226.      *,80620,80660,80680,80700,80720,80732,80745,55492,55482,55470/
  227. C             1438 - 1616 : 179
  228.       DATA II/55460,55440,55410,55380,55350,55320,55280,55250,55220,1841
  229.      *45550,153847550,123548550,93249550,52849550,22549550,2249550,19000
  230.      *,16000,15000,19020,23060,27110,32150,36190,40240,44280,49320,53360
  231.      *,55350,55320,55290,51250,48220,45180,41150,37110,34080,30040,27000
  232.      *,23000,20000,15000,16020,19060,92349550,122649550,163048550,193348
  233.      *550,223647550,254045550,55290,55320,55360,55390,55410,55440,55460,
  234.      *55470,55482,55492,80740,674800,673800,773802,772800,872800,971800,
  235.      *1070800,1169800,1367800,1465800,1664800,1862800,1960800,2158800,23
  236.      *57800,1013251,80550,816261,80530,719281,80510,721301,506771800,722
  237.      *311,486573800,624331,466373800,626351,456174800,283743591,80740,29
  238.      *3941581,80740,56310,54330,53340,51340,50330,50310,51290,52270,5426
  239.      *0,624411,56470,622391,485774800,621381,505974800,619361,526173800,
  240.      *717341,546273800,815321,556472800,1012311,576870800,2959800,276080
  241.      *0,2562800,2464800,2266800,2067800,1968800,1769800,1570800,1471800,
  242.      *1272800,1172800,1073800,973800,873800,774802,6002,649552,648550,74
  243.      *7550,746550,845550,944550,1143550,1242550,1340550,1539550,1637550,
  244.      *1836550,1934550,911211,55330,714221,55310,615241,304348550,617251,
  245.      *284249550,618401,55490,203949550,37210,36230,34210,34200,618360,61
  246.      *7371,55490,715281,303949550,714271,324049550,812251,334348550,2435
  247.      *550,2236550,2138550,1939550,1841550,1642550,1543550,1345550/
  248. C             1617 - 1803 : 187
  249.       DATA IJ/1246550,1147550,948550,848550,749550,649552,80743,80733,80
  250.      *720,80710,80700,80680,80660,80640,80620,659800,657800,655800,75380
  251.      *0,750800,748800,846661,80720,844631,80730,941611,80730,1039591,807
  252.      *40,1337571,80740,5474800,5274800,50000,48000,45000,43002,1335450,1
  253.      *037470,939490,842511,80740,844541,80740,746561,80740,748581,80740,
  254.      *751601,80730,653631,80720,655661,80690,657800,80590,80620,80640,80
  255.      *660,80670,80690,80700,80710,80720,80732,80744,80742,81673800,51872
  256.      *800,31971800,21969800,21966800,11963800,11860800,609161,80570,6548
  257.      *00,651800,748800,10844800,10941651,80700,31138601,80720,41435571,8
  258.      *0730,51732541,80740,72028511,80740,104874800,134574800,41160,38190
  259.      *,37220,38250,41280,44310,354774800,385074800,415474800,445773800,4
  260.      *76073800,506372800,536770800,80560,80590,80620,80650,80680,80710,8
  261.      *0720,80730,80743,8000,1054800,1154800,1354800,1559800,1765800,1968
  262.      *800,2170800,2372800,2573800,2773800,610281,80740,612301,80740,6143
  263.      *21,80740,616341,80740,618361,80740,620381,80740,622401,80740,62342
  264.      *1,80740,625441,80740,627461,80740,629471,80740,631491,80740,633511
  265.      *,80740,635531,80740,637551,80740,639571,80740,641591,80740,643611,
  266.      *80740,644631,80740,646651,80740,648661,80740,650681,80740,652701,8
  267.      *0740,754800,756800,858800,860800,1062800,1164800,1365800,1667800,2
  268.      *369800,2971800,2973800,2975800,733550,933550,1133550,1337550/
  269. C             1804 - 1982 : 179
  270.       DATA IK/1544550,1746550,1947550,2148550,2349550,2549550,608271,554
  271.      *90,610291,55490,612311,55490,614331,55490,616351,55490,618371,5549
  272.      *0,620391,55490,622411,55490,624431,55490,626451,55490,628471,55490
  273.      *,630550,632550,734550,836550,938550,1140550,1842550,2244550,224655
  274.      *0,2248550,47330,53270,58220,61190,64160,66140,68120,70100,71090,83
  275.      *248720,72654730,62258740,52060750,41763760,31565770,21466780,21268
  276.      *780,11169790,11070790,971800,872802,773805,872802,971800,11070790,
  277.      *11169790,21268780,21466780,31565770,41763760,52060750,62258740,726
  278.      *54730,83248720,71090,70100,68120,66140,64160,61190,58220,53270,473
  279.      *30,71650,765710,764720,864722,964720,963730,1062730,1260740,74000,
  280.      *75000,76000,77000,80000,80003,12000,10000,9002,8002,7002,1052590,1
  281.      *449630,1747650,1946690,2145710,2244730,2444740,2544611,75630,12152
  282.      *61,446166760,1217271,456068770,1219281,465969780,1220291,475770790
  283.      *,1221301,505571790,1222301,80720,1223311,80720,1224321,80720,12243
  284.      *31,80720,1225341,80722,1226351,80720,1226361,80720,1227371,80710,1
  285.      *227381,80710,1228391,79700,1229401,79690,1229411,79680,1230431,786
  286.      *70,1231441,78650,1231471,78620,1332511,77570,1333760,1534750,18357
  287.      *40,2336730,2337720,2339700,2342680,64470,23140,26110,92758630,8275
  288.      *6670,62854700,52853720,42853730,32753740,31114261,75530,21015241,7
  289.      *6530,10955661,77690,10857651,78700,871780,872780,839451,79720/
  290. C             1983 - 2162 : 180
  291.       DATA IL/739451,79720,639451,79730,639451,80735,739451,80730,738451
  292.      *,80730,838451,80720,938461,80720,11037461,80710,11136471,80700,112
  293.      *35481,80690,11334501,79680,21433511,79660,21730541,78640,32026780,
  294.      *34042770,43943760,53944750,63845740,73746730,83547710,103449700,12
  295.      *3252660,29150,32220,34220,35220,37220,38220,40220,42220,43220,2230
  296.      *33450,223035460,223036480,223038490,2230405 1,223041530,223043540,
  297.      *223044560,223046570,722301,59470,722301,60490,      822301,62500,8
  298.      *22301,64520,922301,65540,922301,67550,1022301,68570,1222301,70580,
  299.      *72000,73000,75000,76000,78000,80003,1222300,1022300,922302,822302,
  300.      *722302,25160,29130,30110,31090,83241800,73241800,53241800,43141800
  301.      *,41316311,80420,31218291,435268800,21120271,455368800,21046531,806
  302.      *80,10947541,80680,10948551,80680,10848551,80680,848551,80680,84956
  303.      *1,80684,949561,80682,1048561,80682,1147561,80680,11246561,80680,11
  304.      *345561,80680,21444551,80680,21542551,80680,31740541,80680,32037541
  305.      *,80680,42431531,80680,55268800,65168800,75068800,84968800,47090,45
  306.      *110,43130,41160,37220,49270,55220,58190,61160,64140,66120,68100,70
  307.      *090,71080,62630461,72540,52035471,74590,41738481,75620,31539491,76
  308.      *640,31341501,76660,21242511,77670,11143521,78680,11044521,78690,94
  309.      *5531,79700,946531,79710,846541,79720,846541,80720,846551,80720,747
  310.      *551,80733,846551,80730,946551,80720,945551,80720,11045551,80720/
  311. C             2163 - 2338 : 176
  312.       DATA IM/11144541,80710,21343541,79700,21442531,616769790,31640531,
  313.      *79590,41938521,78570,52235511,78570,62730501,76570,74957750,948577
  314.      *40,104658720,124460690,42140,39160,34190,80585,80630,80670,80680,8
  315.      *0695,71769800,32369800,12869800,3169800,3569800,3869800,4169800,44
  316.      *69800,14769800,25069800,41823531,80690,335569800,385769800,4360698
  317.      *00,476369800,516569800,546769800,80570,80590,80620,80640,80660,806
  318.      *80,80700,80720,27170,31140,113353640,93549680,83647700,73746720,53
  319.      *845730,43944740,33943750,31728401,76420,21430541,77610,21331511,77
  320.      *650,11133491,78670,11034481,78680,10935471,79690,935461,79700,8364
  321.      *61,79710,836451,80710,837451,80720,737451,80726,837451,80720,83645
  322.      *1,80710,836461,79710,935461,79700,10935471,79690,11034481,78680,11
  323.      *133491,78670,21331511,77650,21430541,77610,31728401,76420,33943750
  324.      *,43944740,53845730,73746720,83647700,93549680,113353640,31140,2717
  325.      *0,61460,64410,66380,112036680,82234700,62332710,52331730,42330501,
  326.      *74530,32329451,75580,22328421,76610,12127401,77640,11113191,273866
  327.      *780,11026371,78670,926361,79690,825351,79700,825351,80710,825341,8
  328.      *0710,725341,80720,725331,80733,825341,80720,826341,80720,10826341,
  329.      *80720,10927341,80710,11027351,80710,21128361,79700,21228371,79690,
  330.      *31329381,78680,41430391,77670,41631411,77650,51832421,76630,621334
  331.      *51,75600,82634501,74540,72090,71100,70120,68140,66160,64190,61220/
  332. C             2339 - 2509 : 171
  333.       DATA IN/58250,53310,48326,48327,70105,70105,48327,48326,48329,4832
  334.      *9,48329,48329,98005,98005,253545559,253545559,253545559,253545559,
  335.      *12000,15000,18000,21000,24000,27020,30050,33080,36110,39140,42170,
  336.      *45200,48230,51260,54290,57320,60350,63380,66410,69440,72470,75500,
  337.      *78530,80560,80590,80620,80650,80680,1266740,1563770,1862780,216168
  338.      *1,79720,2460661,80740,22760651,80750,53060651,80750,83360661,80740
  339.      *,113661681,79720,143962780,174263770,204566740,48230,51260,54290,5
  340.      *7320,61435600,31738630,21841660,10812191,69440,614201,72470,515201
  341.      *,75500,515201,78530,614201,80560,10812191,80590,21862800,31765800,
  342.      *61468800,74660,77630,78620,616872790,606674800,606575802,606674800
  343.      *,616872790,78620,77630,74660,182248510,182248520,182248540,1822275
  344.      *70,182225610,182224610,182224291,52480,182224281,52480,182224291,5
  345.      *2480,182226351,52480,182228351,52480,22182,182224271,64610,1822242
  346.      *81,64600,182224301,64580,182224643,182224301,49440,182224281,50460
  347.      *,182224271,51480,182248520,182249532,182224271,53480,182224281,534
  348.      *70,182224301,52450,182224510,182224500,182224470,182224300,1822242
  349.      *80,182224270,41390,42380,44360,45350,47330,48320,50300,51290,53270
  350.      *,54260,243941560,233842570,213644590,203545600,183347620,173248630
  351.      *,153050650,142951660,122753680,112654690,92456710,82357720,6215974
  352.      *0,52060750,31862770,21763780,1565800,1466800,1268800,1169800/
  353. C             2510 - 2677 : 168
  354.       DATA IO/971800,971800,1169800,1268800,1466800,1565800,21763780,318
  355.      *62770,52060750,62159740,82357720,92456710,112654690,122753680,1429
  356.      *51660,153050650,173248630,183347620,203545600,213644590,233842570,
  357.      *243941560,54260,53270,51290,50300,48320,47330,45350,44360,42380,41
  358.      *390,49310,54260,58220,61190,64160,67130,69110,93248710,82456720,61
  359.      *961740,51664750,41367760,31070770,10773790,10476790,278800,179800,
  360.      *179800,278800,10476790,10773790,31070770,41367760,51664750,6196174
  361.      *0,82456720,93248710,69110,67130,64160,61190,58220,54260,49310,2129
  362.      *51590,183248620,173347630,163446640,153446650,153545650,153644652,
  363.      *163743640,173842630,183842620,203941600,213941590,57230,56240,5525
  364.      *0,61527531,74650,32128521,77590,78020,13842790,3644800,3545802,364
  365.      *4800,13842790,78020,32128521,77590,61527531,74650,55250,56240,5723
  366.      *0,213941590,203941600,183842620,173842630,163743640,153644650,1535
  367.      *45650,153446650,163446640,173347630,183248620,212951590,66560,6954
  368.      *0,72520,73510,75510,76510,77520,78520,546468780,576069790,79710,79
  369.      *720,80720,80730,41173800,21323291,80730,11421341,80730,1520381,807
  370.      *30,1521401,80730,1524421,80720,11429441,80720,21332451,80710,41134
  371.      *471,80700,354968800,365166800,375562790,79380,78400,77410,76420,75
  372.      *440,74450,72470,70490,67520,26180,30130,33110,35090,37070,39060,40
  373.      *050,41040,42030,21730430,21533450,11434461,68520,11336720/
  374. C             2678 - 2840 : 163
  375.       DATA IP/11237740,1138760,1036770,1033581,78660,1031541,79690,92953
  376.      *1,79700,927541,80710,925551,80720,923441,465672800,10922421,475871
  377.      *800,11020401,486069790,11018381,496366790,21116351,78510,21215331,
  378.      *77520,33154750,32956730,42860700,26050,62439470,62239470,52339470,
  379.      *42538470,32738470,23037470,47020,11518470,11421470,1324470,1227470
  380.      *,1230470,1133470,1135470,1137470,1238470,11339470,21839470,3253947
  381.      *0,52539470,25080,25130,114057720,114053750,114051780,133650800,143
  382.      *149810,152948830,152747840,152546641,85730,142346621,85750,1422456
  383.      *01,86770,132145591,86780,132045591,87790,121944591,87790,111944591
  384.      *,87800,96004,91743581,88810,81643571,88810,81643571,88800,81643571
  385.      *,87800,96004,81741551,85760,91841551,84750,91940541,83740,10203954
  386.      *1,83720,112238531,83700,122436531,83680,132734521,84650,145161850,
  387.      *155061860,164861850,184761840,44200,42220,37260,326341,54460,82634
  388.      *1,54460,1326341,54460,1926341,54460,2426341,54460,3446540,33546540
  389.      *,84046540,54130,54190,56240,61260,67260,263440720,263445770,326341
  390.      *,80460,826341,465456800,1326341,465461800,1926341,465467800,242634
  391.      *1,465472800,3446541,80770,33546540,84046540,54130,54190,56240,6126
  392.      *0,67260,263440720,263445770,263446800,263446541,80560,263446541,80
  393.      *610,263446541,80670,263446541,80720,263446541,80770,41166760,21349
  394.      *780,11432790,1521800,1520800,1521800,11432790,21349780/
  395. C             2841 - 3000 : 160
  396.       DATA IQ/41166760,21140,23120,411240,609250,25000,25010,24030,23040
  397.      *,21070,11040,13020,14010,15003,14010,13020,11040,142136430,1223344
  398.      *50,411241,46330,609251,47320,2532470,12532470,32433460,42334450,72
  399.      *136430,142136430,122334450,112433460,102532473,112433460,122334450
  400.      *,142136430,76670,78510,79420,80410,80400,80410,79420,78510,76670,7
  401.      *7680,79510,80410,80400,80410,79510,77680,4,77680,79510,80410,80400
  402.      *,80410,79510,77680,48310,52270,55240,57220,59200,61180,30717620,31
  403.      *216311,63480,32752640,32554650,72756660,123258670,123759670,121922
  404.      *421,67600,111827471,68610,111832521,68610,111737571,68620,11174268
  405.      *0,111747680,111752720,121857760,121860760,121950551,76580,13204867
  406.      *1,76720,142247660,152446660,162646650,172746630,192847620,22284860
  407.      *0,242750560,47330,53270,56240,60200,173149630,152654650,132357670,
  408.      *112036441,69600,101830501,70620,91626541,71640,71424561,73660,6132
  409.      *1331,475967740,51219291,516168750,41118271,536269760,31017251,5563
  410.      *70770,30916231,576471770,20815221,586572780,20814211,596672780,107
  411.      *14201,606673790,10713191,616773792,612181,626874806,10713191,61677
  412.      *3792,10714201,606673790,20814211,596672780,20815221,586572780,3091
  413.      *6231,576471770,31017661,77700,40915661,76690,50713661,75680,136567
  414.      *740,121966730,121864710,121962700,132060690,132357670,152654650,17
  415.      *3149630,60200,56240,53270,47330/
  416.       END
  417.  
  418.